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Btitle "EXEDRIVE = Drive Analysis of Image Files’ 
module exedrive ( 
ident="V04-000") = begin 


[CRRA RHR HA KET Ee HAKKAR RKHRAATRTAHH HEH Tere eeeeeeeeteeeeeeeteeeeeeeeeeeeneeeer 


:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS 
:* ONLY IN ACCORDANCE WIT 


!@ TRANSFERRED. 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


:* SOFTWARE ON EQUIPMENT WHICH iS NOT SUPPLIED BY DIGITAL. 


APPS LI SSL STILTS TTT TEP TPP ri Ti T Tri rrr cri rite rirriitirirrrerirrirerrrTTTy 
4 


ee 
Facility: VAX/VMS Analyze Facility, Image File Analyzer 
Abstract: aie module is the main control for the analysis of image 
i e 
Environment: 


i 

i 

i 

i 

i 

Author: Paul C. Anagnostopoulos, Creation Date: 31 March 1981 

i Modified By: 

V03-002 DGB0068 Donald G. Blair 03-Jul-1984 
: Allow the /NOOUTPUT qualifier. 

' 
i 
hes 


v03-001 PCA1011 Paul C, ,Anognostopoulos 1-Apr-1983 
Change the message prefix to ANLOBJ$_ to ensure that 
message symbols are unique across alT ANALYZEs. This 
1s necessitated by the new merged message files. 


FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

H THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
* 
* 
® 
® 
x 
® 
* 
* 
® 
® 
* 
® 
* 
* 
* 
® 
w 
® 
* 
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VO4G Module Declarations 12-3 08= 1384 97:98:15 PANALYZ SRE entontie 03551 
3 38 82) } %sbttl "Module Declarations’ 

a S 038 | Libraries and Requires: 

Bett 8S Bi feces se 

3 rary ‘starlet’; 

: rH 0087 ! require ‘objexereq'; 

: 60 0494 1! 

; e h44 : Table of Contents: 

i bi ets i ; d i 

° orward routine 

a #4 0499 1 anl$image: novalue, 

; 8 Bens : anl$image_positionals: novalue, 

; 2 g3) anl$image2: novalue; 

; FP $358 1! 

: oy £4 '¢4 : External References: 

fia ee 

b4 external routine 

: a 0508 1 anl($error_count, 

; 0509 1 anl$format_error, 

; 0510 1 anl$format_hex, 

3 A 0511 1 anl$format_line, 

; 8 Fa 1 anl$image_Tixup_info, 

: 0515 1 ante nee .gets 

; x 0514 1 anl$image_header, 

- 3 0515 1 anl$image_patch_text,. 

: a¢ 0516 1 ot | ee agg Mees file, 

| 0517 1 anl$prepare_réport_Tile, 

: 0518 1 anl$report line, 

; i 0519 1 cli$get_value: addressing_mode(general), 
: $ b259 1 cli$present: addressing_mode(general), 

¢ Bh Beg) | str$trim: addressing_mode(general); 

s 99 §3s¢ 1 external 

: ey beSe : anl$gb_interactive: byte; 

: 92 0526 1! 

: ty Base ; Own Variables: 

: 44 B283 ' i The following variables contain various positional qualifier values. 
oh oe ey 

3 xup_section_flag: byte, 

; Be 0538 ! gst_ flag: byte. wate 
3 patch_text_flag: byte; 
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7*~ 
mn 
4 
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nm 
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Bsbttl "ANLSIMAGE = Control Analysis of Image Files’ 


PO 


Functional Description: ; 
Hy routine is responsible for controlling the analysis of image 
es. 


! Formal Parameters: 
none 
implicit Inputs: 
global data 


i 

i 

' 

' 

i 

' 

i 

i 

i 

' 

! Implicit Outputs: 
: global data 
} 

' 

' 

i 

i 

ie 


' Returned Value: 
none 


Side Effects: 


global routine anlSimage: novalue = begin 


own 
own_described_buffer(report_file_spec,mam$c_maxrss); 


local 
Status: long; 


! Get the global qualifiers that can be specified for ANALYZE/OBJECT. 
! The first one is the /INTERACTIVE qualifier. 


anl$gb_interactive = cliS$present(describe(* INTERACTIVE')); 


! If the user wants us to generate output, get the name of the report 
! file. If this is an interactive session, we always use SYSSOUTPUT. 


if cli$present(describe(*OUTPUT’)) then 
f .anl$gb_interactive then 
chScopy(10,uplit byte (*SYSSOUTPUT'), 
‘ * *,.report_file_specllen],.report_file_spec(ptrJ) 
else 
cli$get_value(describe("OUTPUT'),report_file_spec); 


! de go into a loop, once through for each image file. 

loop ( 

local ; . 
local_described_buffer(resultant_file_spec,nam$c_maxrss); 

status = anlSopen_next_image_file(resultant_file_spec); 


exitif (not .status); 


SOOCSOSOOSOCOOCOSCOOCOSOCOSCOCOCS OOOO SOSCOOOSCCOCOCS COCO OOCOCOCOCO OOOO OOOOOOOoCOO Pm 
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porte Bliss-32 V4.0-74 
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! Prepare the file to receive the image analysis report. 


anl$prepare_report_file(report_file_spec,resultant_file_spec,aniobj$_exeheading); 


! Analyze the image file. 


R anlSimage2(); 


return; 


— 


end; 
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00000000" 


-TITLE EXEDRIVE EXEDRIVE = Drive Analysis of Image 
es 
IDENT \v04-000\ 
-PSECT S$PLITS,NOWRT,NOEXE,2 
00000 P.AAB: .ASCII \INTERACTIVEN 
00008 -BLKB 1 
QOOOC P.AAA: .LONG 11 
00010 -ADDRESS P.AAB 
00014 P.AAD: .ASCII \OUTPUT\ 
QOO1A -BLKB 2 
QOO1C P.AAC: .LONG 6 
00020 «ADDRESS P.AAD 
00024 P.AAE: .ASCII \SYSSOUTPUT\ 
QOO2E P.AAG: .ASCII \OUTPUT\ 
00034 P.AAF: .LONG 6 
00038 -ADDRESS P.AAG 
-PSECT SOWNS,NOEXE,2 


00000 PER SECTOR PLAS 


a L 
00001 GST_FLAG: 


-BLKB 1 
00002 PATCH_TEXT FLAG: 
-BCkB 1 


00003 
00 


00008 
0000C «BL 


»EXTRN 


“BLKB 1 
004 REPORT FILE SPEC: 
[ADDRESS REPORT_FILE_SPEC+8 
KB. 255 


ANLOBJ$_OK, ANLOBJ$_ANYTHING 
ANLOBJ$ “DATATYPE 


~ERRORNONE 
ANLOBJ$_ERRORS, ANLOBJS_EXEFIXA 
AN IXAIMAGE 


ANLOBJ 


SqEXEE 
$~EXEF IXAL 
ANLOBJS~EXEF 1XCO 
$~EXEF IXEX 
ANLOBJ$~EXEF IXF | 
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EXTRN 
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242 CANALYZ.SROJEXEDRIVE ©8325 1 9 03) 
ANLOBUS_EXEF IXFLAGS 
ANLOBUS~EXEF IXG 
ANLOBUS~EXEF IXGIMAGE 
ANLOBJS$_EXEF IXGLINE 
ANLOBJSTEXEFIXLIST 
ANLOBJ$~EXEF IXNAME 
ANLOBJ$_EXEF IXNAMEO 
ANLOBUS~EXEF IXP 
ANLOBJS7EXEF IXPSECT 
ANLOBJ$~EXEF IXUP 
ANLOBJ$~EXEF IXUPNONE 
ANLOBJS7EXEGST, ANLOBJ$S_EXEHDR 
ANLOBJ$~EXEMDRACTIV 
ANLOBJ$_EXEHDRBLKCOUNT 
ANLOBJ$ EXEHDRCHANCOUNT 
ANLOBJ$~— _EXEHDRCHANDEF 
ANL 08, $-EXEMDRDECECO 
ANLOBJ$7~EXEHDRD 
ANLOBJ$ ~EXEHDADST 
ANLOBJ$S~EXEHDRF ILEID 
He ee enone INED 
ANLOBJS~EXEHDRFLAGS 
ANLOBJ$~EXEHDRGBL IDENT 
ANLOBJS“EXEHDRGST 
ANLOBJ$~EXEHDR IDENT 
ANL OB, $_EXEHDRIMAGE ID 
ANLOBJS~EXEHDRI SD 
ANLOBJ$~EXEHDR1 SDBASE 
ANLOBJ$—  EXEHDRISDCOUNT 

LOBJ$~EXEHDRISDFLAGS 
ANLOB$~EXEHDRI SDGBLNAM 
ANLOBJ$~EXEHDRI SDNUM 
ANLOBJ$7~EXEHDRI SDPF CDEF 
ANLOBJ$~EXEHDRISDPFCS1Z 
ANLOBJ$~EXEHDRI SDTY 
ANLOBJ$~EXEHDRI SDVBN 
ANLOBJ$“EXEHDRL INK 1D 
ANLOBJS~EXEHDRMAT CH 
ANLOBJ$ _EXEHDRNAME 
ANLOBJ$~  EXEHDRNOPATCH 
ANLOBJ$— _EXEHDRPAGE COUNT 
ANLOBJ$~ _EXEHDRPAGEDEF 
ANLOBJ$—  EXEHDRPATCH 
ANLOBJS“E XENDRPAT CHDATE 
ANLOBJ$~EXEHDRPRIV 
ANLOBJ$~ _EXEHDRROPATCH 
ANLOBJ$~ _EXEHDRRWPATCH 
ANLOBJ$~EXEHDRSYMDBG 
ANLOBJ$  EXEHDRSYSVER 
ANLOBJ$~ _EXEHDRTEXTVBN 
ANLOBJ$“EXEHDRT IME 
ANLOBJ$~EXEHDRTYPEEXE 
ANLOBJ$~EXEHDRTYPEL IM 
ANLOBJ$“EXEHDRUSERE CO 
ANLOBJ$~EXEHDRXFERT 
ANLOBJ$~ EXEHDRXFER 
ANLOBJ$~ EXEHDRXFER 
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ANLOBJ$ = BNENE ND ING 
ANLOBJ$_ “Fi EPATCH 


G 
J$“OBJENV ANLOBJ$_OBJEOMFLAGS 
“OBJEO once 

“OBJ 

“OBJ 
“OBJ 
“OBJ 
“OBJ 
ANL 
ANLOBJ$~OBJEOMWR 


EC 
ANLOBJ$— “rece 
ANLOBJ$_OBJGSDENV 


i 
ARR AR AA od 


qj 
QAaaqng 
om wn 
xov 

< 


~OBJGTXREC 
=GOJHOR 1GNREC 
~OBJHEAD ING 


> 

34 

28 
ccc 
wus 


ANLOBJ HDREC 
ANLOBJ$"OBJMHDRECS1Z 
ANLOBJ$~OBJMHDSTRLVL 
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ON 


ANLOBJ$_OBJMHDVERS! 
ANLOBJ$_OBJMTCCORRECT 
L TCINPUT 


-OBJSRCREC 

ANL ~OBJSTATHEADING1 
ANLOBJ$_OBJSTATHEAD ING2 
ANL JSTATLINE 


$- ATL 
ANLOBJ$_ OBSTATTOTAL 
ANLOBJ$_OBJSY sng 
ANLOBJ 


$~OBJSYMF LAGS 
ANLOBJ$~OBJT IRARGINDEX 
ANLOBJ$~OBJTIRCMD 
ANLOBJ$~OBJTIRCMDSTK 
ANLOBJ$_OBJ TBTREC 
ANLOBJ$~0BJTIRREC 
ANLOBJ$~OBJTIRSTOIM 
ANLOBJ$~OBJTIRVIELD 
ANLOBJ$~OBJTTLREC 
ANLOBJ$~OBJVALUE 
ANLOBJ$~OBJUVALUE 
ANLOBJ$ "PROTECTION 
ANLOBJS$ "SEVERITY 
ANLOBJ$~TEXT, ANLOBJ$_TEXTHDR 
ANLOBJ$~NOSUCHMOD 
ANLOBJ$~BADDAT 


$_BADDATE 
ANLOBJ$_BADHDRBLK COUNT 
ete -BADSEVERITY 
ANLOBJ$_BADSYM1ST 
ANLOBJ$_BADSYMCHAR 


ANLOBJ$"BADSYMLEN 
ANLOBJ$_EXEBADF I XUPEND 
ete EXEBADF IXUPISD 


0BJ$~EXEBADF I XUPVBN 

LOBJS"EXEBADISDS1 
ANLOBJ$~EXEBADISDTYPE 
ANLOBJ$~EXEBADMATC 
ANLOBJ$~EXEBADPATCHLEN 
ANL OB $7EXEBADOB, 
ANLOBJ$~EXEBADTYPE 
ANLOBJ$~EXEBADXF ERO 
ANLOBJ$~EXEHDRI SDLONG 
ANLOBJ$~EXEHDRLONG 
ANLOBJ$~EXE I SDLENDZRO 
ANLOBJ$~EXE I SDLENGBL 
ANLOBJ$~EXE I SDLENP 
ANLOBJ$"EXENOTNAT IV 
ANLOBJS$~EXTRABYTES 
ANLOBJ$~F IELDF IT 


am 
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OOFC 
57 0000" CF 9€E 
56 000000006 00 3 
5€ FEF8 CE 9E 
0000" CF 9F 
66 3 FB 
0000G CF 6 90 
0000" CF OF 
66 9} FB 
1D 0 € 
0B 0000G CF Ay 
67 20 0000" CF oA C 
8 11 


SSOOSSSSeSe 
COOOSOOCOOCOoOoSSoSooo 


Or aa auth eke 
SYN OO S NWT “PD 


COOOoOooCoOoCoOooOoOoOSoo 


ooo 
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ANLOBJ$_FLAGERROR 


ANLOBJ$S-NOTOK, ANLOBJ$_OBJBADIDCMATCH 
BAGNUM 


ANLOBJ$— 


ANLOBJ$~OBJF ADBADRBC 
ANLOBJ$~OBJGSDBADAL IGN 
ANLOBJ$_0BJGSDBADSUBT VP 


ANLOBJ$_OBJMHDBADRECS1Z 


ROR 
ANLSFORMAT-HEX, ANLSFORMAT_LINE 
ANLSIMAGE_FIXUP_INF 

ANLSIMAGE-GST, ANLSIMAGE_HEADER 


ANLSREPORT_CINE 


ANALYZ.SRCJEXEDRIVE .832;1 


CLISGET VACUE 
STRSTRIA, ANL 


CLISPRESENT 
$68_ INTERACTIVE 


SCODES,NOWRT ,2 


ANLSIMAGE, Save R2,R3,R4,R5,R6,R7 


REPORT FILE SPEC, R7 
CLISPRESENT R6 
-264(SP), SP 


P.AAA 
#1, CLISPRESENT 
RO, ANLSGB_INTERACTIVE 


wi, CL 


ANI $6B_ INTERACTIVE 
#10, PTAAE, # 


QREPOR 


ISPRESENT 


1$ 
. 2, REPORT_FILE_SPEC, - 
T_FICE_SPEC+4 
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57 po 0039 1$ PUSHL 
0000" CF 9F 00038 PUSHAB 
000000006 00 2 €B 90 F CALLS us CLISGET_VALUE 
6E FF BF 9A 00046 28: MOVZ2BL #255, RESULTANT FILE_SPEC 
04 AE 08 AE YE 0004A MOVAB RESULTANT_FILE_SPEC+B, - 
RESULTANT_FILE-SPEC +4 
5E DD 004F PUSML 
00006 cf gi FB 00051 CALLS #1, ANLSOPEN_NEXT_IMAGE_FILE 
g DO 00056 MOVL RO STATUS 
52 €9 0099 LBC = STATUS, 3$ 
000000006 BF dD 0005 PUSHL #ANLOBJ$_EXEHEADING 
04 Ag F 0006 PUSHAB RESULTANT FILE SPEC 
57 DD 0006 PUSHL R 
0000G CF 03 FB 00067 CALLS #3, ANLSPREPARE _REPORT_FILE 
0000v CF 00 FB 9006¢ CALLS #0, ANLSIMAGE2 
D3. 11 00071 BRB 2$ 
04 00073 3$ RET 


; Routine Size: 116 bytes, Routine Base: S$CODE$ + 0000 
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betl *ANLSIMAGE_POSITIONALS = Process Positional Qualifiers’ 

Functional Description: 
This routine is called by the EXEINPUT module whenever it scans 
off the next file spec from the command Line. We need to process 
positional qualifiers. 


ze 


vw 


SEBF 


a 
= POPPE PINOPIPOPONINININYPYINIPUPONINININYDD 3 2 2 0 ot tt 


Qo 


SOWDNAUE UN $0 OONOUES WN "OO OONOVEWNOWUW 


Formal Parameters: 
none 

Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


FRESSSSSSSSESSSSS 


Returned Value: 
none 


Side Effects: 


ae Te 


global routine anlSimage_positionals: novalue = begin 


local 
all_portions: byte; 


! We process the qualifiers that specify which portions of the image ae 
! to be analyzed. If none are specified, we analyze everything. f any are 
! specified, we analyze only those specified. 


WWWAWAIAI NAINA AIR PUPIPIPININININIDN 2 2 PO OO oe ee 


SESSSFSSSSESSSSSSSSOSSS 


all_portions = not cli$present(describe('FIXUP_SECTIGw')) and 
not cli$present(describe('GST'>) and 
4 not cli$present(describe(*HEAJER')) and 
41 not cli$present(describe('PATCH_TEXT')); 
064 fixup section flag = .all_portions or cli$present(describe('FIXUP_SECTION’)); 
0644 gst_flag = .all_portions or cli present (describe('GST")); 
aeez patch_text_flag = .all_portions or cliSpreserit(describe(*PATCH_TEXT')); 
0647 return; 
0648 
0649 end; 
-PSECT SPLITS,NOWRT NOEXE,2 
4E 4F 49 54 43 45 53 SF 50 55 58 49 46 Q003C P.AAI: et yf LP SECTION : 
00000000 0004C P.AAH: .LONG 13 : 
set's bat 9 0050 -ADDRESS P.AAI : 
54 53 4 0054 P.AAK: .ASCII \GST\ : 
00057 -BLKB 1 


seat 


4E 4F 


3; Routine Size: 


_ RIVE - ons ive Ana oiys' 


LSIMAGE _PO 


SITIONA 


52 45 


54 58 45 54 SF 48 


49 54 43 45 53 SF 50 


54 58 45 54 SF 48 


0000° CF 
0000° CF 
0000° CF 


95 bytes, 


DO PO VO OO OO OOo 
om £OMW NNUV WHY Mw UO 


wo 
oul om 


Routine Base: 


Bot Image Files 
Process Bo 


_ OH pune 


09 P.AAM: 
908 0 S68 P.AAL: 
00 * RORee 
43 54 4 38 P.AAO: 
O7A 
booo0000" gooes | NAN? 
55 58 49 46 B84 P.AAQ: 
0000000D $094 P.AAP: 
00990009" 0098 
54 4 OO9C P.AAS: 
4444 
00000003 QO0A0 P.AAR: 
00000000" O00A4 
43 54 41 50 QOOA8 P.AAU: 
00B2 
O000000A 00084 P.AAT: 
00000000° 00088 
007C 00000 
00" CF 9E 00002 
00000000G 00 9€ 00007 
56 DD OO00E 
01 FB eA 
50 DO 0001 
OC A6 YF 00016 
01 FB 00019 
50 00 O001C 
52 C8 OOO1F 
1©¢ AB OF Bose 
01 FB 0002 
29 b0 Boose 
53 ¢8 00028 
30 Ad OF Set 
01 cB oS 1 
35 $3 oo03? 
48 Abd 9F OO03A 
01 FB 00030 
54 89 00040 
54 A6 YF 00046 
1 FB 00049 
4 HY Bones 
68 Abd OF iE 
01 FB Bape 
54 89 00058 
04 O00SE 
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AX-11 Bliss-32 


e235. 
ANALYZ.SRCJEXE DRI E.832;1 


$7398:15 
“Lone $"P 
of DDRESS 

Cy 


\HEADER\ 


LON G 
-ADDRESS P.AAM 
“BLKB \PATCH_TEXT\ 


LONG 0 
ADDRESS P.AAO 
“ASCII \F IXUP_SECTION\ 


- LONG 3 
ADDRESS P.AAQ 
sASCII = \GST\ 

-BLKB 1 
«LONG 3, 
«ADDRESS P.AAS 
SASCII \PATCH_ TEXT\ 
BLKB 2 


“TONG 10 
“ADDRESS P.AAU 
SCODES .NOWRT,2 


pa sie. POSITIONALS, Save R2,R3,R4,R5,R6 
MOVAB CLISPRESENT, R5 


PUSHL R 

CALLS #1, CLISPRESENT 

MOVL B.S ae 

PUSHAB oo 

a +4 e CL ISPRESENT 

BISL2 Ro. R3 

PUSHAB p-AAL 

CALLS . i CLISPRESENT 

MOVL oR 

BISL2 R53, Re 

PUSHAB P.AAN 

CALL #1, CLISPRESENT 

BISL Re, R 

MCOMB RO, ALL_PORTIONS 

PUSHAB P.A 

CALL #i, CLISPRESENT 

BISB ALL_PORTIONS, RO, FIXUP_SECTION_FLAG 
PUSHAB P.AAR 

CALL #i, CLISPRESENT 

BISB ALC _PORTIONS, RO, GST FLAG 
PUSHAB  P.AAT 

TL #i, CLISPRESENT 

18 aut PORTIONS, RO, PATCH_TEXT_FLAG 


; 0628 


0638 


0639 


0640 


0641 


0640 
0643 


0644 


0645 


0649 


hei ANE ANLS! MAGE. “posit! ONALS”: Process” sit onal Qual b-bep-1964 7: 33:13 ANALYZ SRE exeoeiie 149; :1 thn (5 


| 


— 


M12 
EXEDRIVE EXEDRIVE = Drive Analysis of Image Files 15-Sep-1984 23:46:17 AX-11 Bliss-32 V4.0-74 
Vv04- ANLSIMAGE2: Produce Analysis of One Image 14-Sep-19 4 $7:$8:15 LANALYZ SRE EXEDRIVE.832;1 
3 4 Best ! Rsbttl *ANLSIMAGE2: Produce Analysis of One Image’ 
3 1 § 1} Functional Description: : : 
3 ¢ 535 1 This routine is responsible for producing the analysis report for 
(3 : eee ! } one image. 
3 5 0656 1 ! Formal Parameters: 
Ph BA Thnk) 
° : Implicit Inputs: 
: $0 dee : global data 
: 1 662 1 | Implicit Outputs: 
E 3 0668 : : global data 
i 34 0665 i Returned Value: 
3 36 0667 1: tee 
: $i Roe8 : Side Effects: 
; 239 0670 1 i-- 
: 240 0671 1 
: 241 0672 1 
: $e gor? global routine anl$Simage2: novalue = begin 
1 oa ft area pone 
: : re ockL,bytel, 
: 246 0677 cont inue: long, . ; ; 
: sis +h § image_base: long, fixup_size: long, fixup_vbn: Long; 
: 249 0680 2 
; 250 0681 : As we analyze each portion of the inoge. we get a return status that tells 
ae +). 0682 2 ! us whether or not to continue (false if interactive and user says quit). 
; $26 0683 $ : We always ensiyae the image header. . 
; @ 0684 : The header analysis routine will return info about the starting address 
: See oe#3 ! of the image and its fixup section. 
; $28 eet continue = anlSimage_header(image_base,fixup_size, fixup_vbn); 
; $28 +934 ! Now if the user wants us to print the patch text, let's do it. 
; $80 0691 if .continue and .patch_text_flag then 
: $9) +43 continue = anl$image_patch_text(); 
E 268 Rope ! Now if the user wants us to analyze the global symbol table, let's do it. 
: 265 0696 if .continue and .gst_flag then 
3 6¢ 9934 continue = anT$image_gst(); 
; o8 st44 ! If the user wants us to analyze the fixup section, do it. 
; 270 0701 2 if .continue and : fixup section flag then 
(3 4 B708 continue = anlS$image_fixup_info(.image_base,.fixup_size,.fixup_vbn); 
; 4, 4 ! Tell the user how many errors were uncovered. 
; $78 0706 anl$report_line(-1); 


N 1 
| EXEDRIVE EXEDRIVE = Drive Analysis of Image Files at -1984 17 AX-11 Bliss-32 V4.0-7 P 14 
WOK=000 ANLSIMAGE2: Produce Analysis of ne Image VenSep-1986 fissssas — FaNany2°SaeSeatontie 64351 ae 
ls 2? 707 anl$report_lLine(-1); 
i 7 10 anl$report= Line(-1): 
13 i oy anl$error_Tount(); 
le 
a ao ab ! Finally, print the command Line that was used to generate the report. 
; S¢ ig begin 
3 oca 
3 28 0714 3 local 
$ se $4F local _described_buf fer (command_line,80); 
3 Hy] Ore clisget. value(describe('SLINE') ,command_Line); 
3 44 orig ani ormat_line(0,0,anlobj$_ anything, command_ Line); 
Py end; 
; 289 0720 
: 290 0721 return; 
3 91 07 ; 
: 292 07 end; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
45 4E 49 4C 24 OOOBC P.AAW: rt} peta : 
00000005 000C4 P.AAV: .LONG 5 F 
00000000" 000c8 ADDRESS P.AAW 3 
-PSECT S$CODES,NOWRT,2 
0004 00000 «ENTRY ANLSIMAGE2, Save R2 : 0673 
52 0000G CF 9E 00002 MOVAB ANLSREPORT_LINE, R2 3 
5E 9C AE 9E asa MOVAB <=-100(SP), SP 3 
5E DD 0000 PUSHL ; 0687 
08 AE OF 00908 PUSHAB FIXUP_SIZE F 
10 AE 9F 00010 PUSHAB IMAGE~BASE 3 
0000G CF 03 FB 00013 CALLS +e AALS IMAGE HEADER 3 
2c 50 €9 00018 BLBC 3 : 0691 
05 0000° CF €9 0001B BLBC PATCD TEXT F LAG, 1$ 3 
0000G CF 00 FB 00020 CALLS 40, AALS IMKGE _PATCH_ TEXT 3: 0692 
1F 50 €9 00025 1$: BLBC CONTINUE, 3 3; 0696 
05 0000° CF €9 00028 LBC GST SLAG. 3 
0000G CF 90 4 B08 e8 CALLS #0," NLSIMAGE GST ; 0697 
12 0 € 0032 2$: LBC CONTINUE. ; 0701 
0D 0000" CF £9 00035 LBC FIXUP_ SECTION FLAG, 3$ é 
6—E DD OO03A PUSHL FIXUP VBN ; 0702 
| 08 AE DD 0003C PUSHL FIXUP™SIZE ; 
10 Ag DD 0003F PUSHL IMAGE BASE ; 
| 00006 CF 03 FB 0004 CALLS #3, ANLSIMAGE_F IXUP_INFO : 
43 1 CE 00047 3$: MNEGL #1, =(SP) ; 0706 
6 01 FB OO04A CALLS #1, ANLSREPORT_LINE s 
4} 01 CE 0004D MNEGL #1, - ; 0707 
§ 8 FB Ones CALLS #1, ANL $REPORT LINE ¢ 
1 CE 0005 MNEGL #1, -(SP ; 0708 
| 6 01 FB 00056 CALLS #1. ANLSREPORT_LINE : 
| 0C00G CF 00 FB 00059 CALLS #0, ANLSERROR_COUNT ; 0709 


ie 
; @ 


13 
Ene oniye EXEDRIVE = Drive Analysis of + Files 18. -Sep- =13 r 7:68:12 Ax-11 Oi ieee 0-74 
v04- ANLSIMAGE2: Produce Analysis of One Image 14-Sep-1 1:5 ANALYZ. SRC IE Seki ie 83 31 
OC AE 50 8F 9A 0005 MOV7BL #80, COMMAND ,ine 
10 AE 14 AE YE 0006 MOVAB_ COMMAND_LINE?8, COMMAND_LINE+4 
OC AE 9F 000 PUSHAB ah MAND_LINE 
0000" CF 9F 00068 PUSHAB AAV 
000000006 00 2 FB 0006F CALLS We, CLISGET VALUE 
OC AE 9F 00076 PUSHAB MMAND_LINE 
000000006 gf oD 00079 PUSHL PANLOBJS ANYTHING 
E 7C 0007F CLRO -(SP 
0000G CF 04 FB 00081 CALLS #4, ANLSFORMAT_LINE 
04 00086 RET 
Routine Size: 135 bytes, Routine Base: $CODE$ + 0003 
; 293 0724 1 
: 296 0725 0 end eludom 
$ PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 267 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 204 WNOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, (CON,NOPIC,ALIGN(2) 
; SCODES 346 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: ceccecce Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 11 0 581 00:01.0 


Size: 

Run Time: 00:10. 
Elapsed Time: 00:36. 
Lines/CPU Min: £368 
Lexemes/CPU-Min: 14362 
peel | Used: 135 pages 
Compilation Complete 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LISS$:EXEDRIVE/OBJ=OBJ$:EXEDRIVE MSRC$:EXEDRIVE/UPDATE=(ENHS:EXEDRIVE ) 


346 code + 471 data bytes 


<m 


DIGITAL EQUIPMENT 
CONFIDENTIAL AND P 


-SE 


AH-BT13A 
VAX/VMS V4.0 


0005 


